!===============================================================
!
! FUNZIONE DI TRECCANI
! 
!  X(1) .GE. -3  ;  X(2) .LE.  3
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!      -25.D-1              25.D-1         Limits of variable 1
!      -15.D-1              15.D-1            "        "      2

SUBROUTINE TRECCANI(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      DOUBLE PRECISION :: X1Q

      F = 0.D0
      X1Q = X(1)*X(1)
      F = X1Q*X1Q+4.D0*X1Q*X(1)+4.D0*X1Q+X(2)*X(2)

      RETURN

END
